home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok82.lha / Mini / Beispiele / fibonacci.mini < prev    next >
Text File  |  1993-08-15  |  130b  |  17 lines
  1. PROGRAM
  2.  
  3. VAR
  4.   a,b,c
  5.  
  6. BEGIN
  7.   a = 1
  8.   b = 0
  9.   c = 46
  10.   WHILE c DO
  11.     PRINT a
  12.     a = a + b
  13.     b = a - b
  14.     c = c - 1
  15.   END
  16. END
  17.